home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hm--html-menus / hm--html-configuration.el < prev    next >
Encoding:
Text File  |  1995-08-15  |  18.0 KB  |  562 lines
  1. ;;; hm--html-configuration.el - Configurationfile for the html-mode
  2. ;;; v3.50; 12 May 1995
  3. ;;; Copyright (C) 1993, 1994, 1995  Heiko Muenkel
  4. ;;; email: muenkel@tnt.uni-hannover.de
  5. ;;;
  6. ;;;  This program is free software; you can redistribute it and/or modify
  7. ;;;  it under the terms of the GNU General Public License as published by
  8. ;;;  the Free Software Foundation; either version 2, or (at your option)
  9. ;;;  any later version.
  10. ;;;
  11. ;;;  This program is distributed in the hope that it will be useful,
  12. ;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;;;  GNU General Public License for more details.
  15. ;;;
  16. ;;;  You should have received a copy of the GNU General Public License
  17. ;;;  along with this program; if not, write to the Free Software
  18. ;;;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. ;;;
  20. ;;; 
  21. ;;; Description:
  22. ;;;
  23. ;;;    This file is for the configuration of the html mode.
  24. ;;; 
  25. ;;; Installation: 
  26. ;;;   
  27. ;;;    Put this file in one of your lisp load path directories or
  28. ;;;    set the environment variable HTML_CONFIG_FILE to this file.
  29. ;;;    For example: 
  30. ;;;       setenv HTML_CONFIG_FILE "~/data/hm--htm-environment.el"
  31. ;;;      if you have put this file in the directory "~/data/"
  32. ;;;
  33.  
  34.  
  35. (provide 'hm--html-configuration)
  36. (require 'adapt)
  37.  
  38.  
  39. ;; The User config file (an proposal of Manoj Srivastava)
  40. (defvar hm--html-user-config-file nil
  41.   "*The location of the users config file.
  42. This variable will only be used, if no environment variable
  43. \"HTML_USER_CONFIG_FILE\" is set. 
  44. Example value: \"~/.hm--html-configuration.el\".")
  45.  
  46.  
  47. ;; Chose the initial popup menu
  48.  
  49.  
  50. (defvar hm--html-expert nil
  51.   "*t    : Use the HTML expert popup menu,
  52. nil : Use the HTML novice (simple) menu.
  53. The variable 'hm--html-marc must be nil. If 'hm--html-marc is
  54. not nil, this variable has no effect.")
  55.  
  56.  
  57. (defvar hm--html-marc nil
  58.   "*t    : Use the HTML popup menu from Marc Andreessen.")
  59.  
  60.  
  61. ;;; Your Signature
  62.  
  63. (defvar hm--html-signature-file nil 
  64.   "*Your Signature file.
  65. For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\".")
  66.  
  67.  
  68. (defvar hm--html-username nil
  69.   "*Your Name for the signature. For example: \"Heiko Mⁿnkel\".")
  70.  
  71.  
  72. ;;; Your favorite server (eg: the name of the host of your own http server)
  73. ;;; This is used in some other variables
  74.  
  75. (defvar hm--html-favorite-http-server-host-name "www.tnt.uni-hannover.de"
  76.   "*The name of your favorite http server host. It must be specified !")
  77.  
  78.  
  79. ;;; For links to Info Gateways
  80.  
  81. (defvar hm--html-info-hostname:port-alist nil
  82.   "*Alist with hostnames and ports for the Info gateway.")
  83.  
  84. (setq hm--html-info-hostname:port-alist '(("www.tnt.uni-hannover.de:8005")))
  85.  
  86. (defvar hm--html-info-hostname:port-default nil
  87.   "*Default hostname with port for the Info gateway.")
  88.  
  89. (setq hm--html-info-hostname:port-default "www.tnt.uni-hannover.de:8005")
  90.  
  91. (defvar hm--html-info-path-alist nil
  92.   "*Alist with directories for the Info gateway.")
  93.  
  94. (setq hm--html-info-path-alist '((1 . "/appl/lemacs/Global/emacs/info")
  95.                  (2 . "/appl/emacs/info")
  96.                  (3 . "/appl/gnu/Global/info")
  97.                  (4 . "/appl/emacs-19/Global/info")
  98.                  (5 . "/")))
  99.  
  100.  
  101. ;;; For links to WAIS Gateways
  102.  
  103. (defvar hm--html-wais-hostname:port-alist nil
  104.   "*Alist with hostnames and ports for the WAIS gateway.")
  105.  
  106. (setq hm--html-wais-hostname:port-alist '(("www.tnt.uni-hannover.de:8001")
  107.                       ("info.cern.ch:8001")))
  108.  
  109. (defvar hm--html-wais-hostname:port-default nil
  110.   "*Default hostname with port for the WAIS gateway.")
  111.  
  112. (setq hm--html-wais-hostname:port-default "www.tnt.uni-hannover.de:8001")
  113.  
  114. (defvar hm--html-wais-servername:port-alist nil
  115.   "*Alist with servernames and ports for the WAIS gateway.")
  116.  
  117. (setq hm--html-wais-servername:port-alist 
  118.       '(("wais.tnt.uni-hannover.de:210")
  119.     ("daedalus.tnt.uni-hannover.de:21408")
  120.     ("ikarus.tnt.uni-hannover.de:21401")))
  121.  
  122. (defvar hm--html-wais-servername:port-default nil
  123.   "*Default servername with port for the WAIS gateway.")
  124.  
  125. (setq hm--html-wais-servername:port-default "www.tnt.uni-hannover.de:210")
  126.  
  127. (defvar hm--html-wais-path-alist nil
  128.   "*Alist with directories for the wais gateway.")
  129.  
  130. (setq hm--html-wais-path-alist nil)
  131.  
  132.  
  133. ;;; For links to HTML servers
  134.  
  135. (defvar hm--html-html-hostname:port-alist nil
  136.   "*Alist with hostnames and ports for the HTML server.")
  137.  
  138. (setq hm--html-html-hostname:port-alist '(("www.tnt.uni-hannover.de:80")
  139.                       ("vxcrna.cern.ch:80")
  140.                       ("www.ncsa.uiuc.edu:80")))
  141.  
  142. (defvar hm--html-html-hostname:port-default nil
  143.   "*Default hostname with port for the HTML server.")
  144.  
  145. (setq hm--html-html-hostname:port-default "www.tnt.uni-hannover.de:80")
  146.  
  147. (defvar hm--html-html-path-alist nil
  148.   "*Alist with directories for the HTML server.")
  149.  
  150. (setq hm--html-html-path-alist '((1 . "/data/info/www/tnt/")
  151.                  (2 . "/data/info/www/")
  152.                  (3 . "/data/info/")
  153.                  (4 . "/data/")
  154.                  (5 . "/appl/")
  155.                  (6 . "/project/")
  156.                  (7 . "~/")
  157.                  (8 . "/")))
  158.  
  159.  
  160.  
  161. ;;; For links to file gateways
  162.  
  163. (defvar hm--html-file-path-alist nil
  164.   "*Alist with directories for the file gateway.")
  165.  
  166. (setq hm--html-file-path-alist '((1 . "/data/info/www/tnt/")
  167.                  (2 . "/data/info/www/")
  168.                  (3 . "/data/info/")
  169.                  (4 . "/data/")
  170.                  (5 . "/appl/")
  171.                  (6 . "/project/")
  172.                  (7 . "~/")
  173.                  (8 . "/")))
  174.  
  175.  
  176. ;;; For links to ftp servers
  177.  
  178. (defvar hm--html-ftp-hostname:port-alist nil
  179.   "*Alist with hostnames and ports for the ftp server.")
  180.  
  181. (setq hm--html-ftp-hostname:port-alist '(("ftp.tnt.uni-hannover.de")
  182.                      ("ftp.rrzn.uni-hannover.de")
  183.                      ("wega.informatik.uni-hannover.de")
  184.                      ("rusmv1.rus.uni-stuttgart.de")
  185.                      ("export.lcs.mit.edu")
  186.                      ))
  187.  
  188. (defvar hm--html-ftp-hostname:port-default nil
  189.   "*Default hostname with port for the ftp server.")
  190.  
  191. (setq hm--html-ftp-hostname:port-default "ftp.rrzn.uni-hannover.de")
  192.  
  193. (defvar hm--html-ftp-path-alist nil
  194.   "*Alist with directories for the ftp server.")
  195.  
  196. (setq hm--html-ftp-path-alist '((1 . "/pub")
  197.                 (2 . "/pub/gnu")
  198.                 (3 . "/pub/linux")
  199.                 (4 . "/pub/unix")
  200.                 (5 . "/incoming")
  201.                 (6 . "/")))
  202.  
  203.  
  204. ;;; For links to gopher servers
  205.  
  206. (defvar hm--html-gopher-hostname:port-alist nil
  207.   "*Alist with hostnames and ports for the gopher server.")
  208.  
  209. (setq hm--html-gopher-hostname:port-alist 
  210.       '(("newsserver.rrzn.uni-hannover.de:70")
  211.     ("solaris.rz.tu-clausthal.de:70")
  212.     ("veronica.scs.unr.edu:70")
  213.     ("pinus.slu.se:70")
  214.     ("sunic.sunet.se:70")
  215.     ))
  216.  
  217. (defvar hm--html-gopher-doctype-alist nil
  218.   "*Alist with doctype strings for the gopher server.")
  219.  
  220. (setq hm--html-gopher-doctype-alist
  221.       '(("/1")
  222.     ("/11")
  223.     ("/00")))
  224.  
  225. (defvar hm--html-gopher-doctype-default nil
  226.   "*Default doctype string for the gopher server.")
  227.  
  228. (setq hm--html-gopher-doctype-default "/1")
  229.  
  230. (defvar hm--html-gopher-hostname:port-default nil
  231.   "*Default hostname with port for the gopher server.")
  232.  
  233. (setq hm--html-gopher-hostname:port-default 
  234.       "newsserver.rrzn.uni-hannover.de:70")
  235.  
  236. (defvar hm--html-gopher-anchor-alist nil
  237.   "*Alist with directories for the gopher server.")
  238.  
  239. (setq hm--html-gopher-anchor-alist 
  240.       '(("veronica")
  241.     ("Wide%20Area%20Information%20Services%20databases")
  242.     ("Subject%20Tree")))
  243.  
  244.  
  245. ;;; For the links to the Program Gateway
  246.  
  247. (defvar hm--html-proggate-hostname:port-alist nil
  248.   "*Alist with hostnames and ports for the proggate server.")
  249.  
  250. (setq hm--html-proggate-hostname:port-alist '(("www.tnt.uni-hannover.de:8007")
  251.                           ))
  252.  
  253. (defvar hm--html-proggate-hostname:port-default nil
  254.   "*Default hostname with port for the proggate server.")
  255.  
  256. (setq hm--html-proggate-hostname:port-default "www.tnt.uni-hannover.de:8007")
  257.  
  258.  
  259. (defvar hm--html-proggate-allowed-file nil
  260.   "*The filename (with path) of the proggate allowed file.")
  261.  
  262.  
  263. (setq hm--html-proggate-allowed-file "/appl/www/bin/proggate.allowed")
  264.  
  265.  
  266. ;;; For links to the Local Program Gatewy
  267.  
  268. (defvar hm--html-local-proggate-path-alist nil
  269.   "*Alist with directories for the local program gateway.")
  270.  
  271.  
  272. (setq hm--html-local-proggate-path-alist '((1 . "/bin/")
  273.                        (2 . "/usr/bin/")
  274.                        (3 . "/usr/local/bin/")
  275.                        (4 . "/appl/util/bin/")
  276.                        (5 . "/appl/gnu/Global/bin/")
  277.                        (6 . "/")
  278.                        (7 . "/appl/")
  279.                        (8 . "~/appl/Global/bin/")
  280.                        (9 . "~/")))
  281.  
  282.  
  283. ;;; For links to the mail gateway
  284.  
  285. (defvar hm--html-mail-hostname:port-alist nil
  286.   "*Alist with hostnames and ports for the mail gateway.")
  287.  
  288. (setq hm--html-mail-hostname:port-alist '(("www.tnt.uni-hannover.de:8003")
  289.                       ))
  290.  
  291. (defvar hm--html-mail-hostname:port-default nil
  292.   "*Default hostname with port for the mail gateway.")
  293.  
  294. (setq hm--html-mail-hostname:port-default "www.tnt.uni-hannover.de:8003")
  295.  
  296. (defvar hm--html-mail-path-alist nil
  297.   "*Alist with directories for the mail gateway.")
  298.  
  299. (setq hm--html-mail-path-alist '((1 . "~/data/docs/mail")
  300.                  (2 . "~/data/docs/news")
  301.                  (3 . "~/docs/mail")
  302.                  (4 . "~/docs/news")
  303.                  (5 . "~/mail")
  304.                  (6 . "~/news")
  305.                  (7 . "~/")
  306.                  (8 . "/data/info/mail")
  307.                  (9 . "/data/info/news")
  308.                  (10 . "/")))
  309.  
  310.  
  311.  
  312. ;;; For the server side include directive
  313.  
  314. (defvar hm--html-server-side-include-command-alist nil
  315.   "*Alist with commands for the server side include directive.
  316. These commands needs no parameter.")
  317.  
  318. (setq hm--html-server-side-include-command-alist
  319.       '(("/bin/date")
  320.     ("/usr/bin/finger")
  321.     ("/bin/df")))
  322.     
  323. (defvar hm--html-server-side-include-command-with-parameter-alist nil
  324.   "*Alist with commands for the server side include directive.
  325. These commands needs parameters.")
  326.  
  327. (setq hm--html-server-side-include-command-with-parameter-alist
  328.       '(("/usr/bin/man")
  329.     ("/usr/bin/finger")
  330.     ("/usr/bin/ls")
  331.     ("/bin/cat")))
  332.     
  333.  
  334. ;;; Alist with URL'S for FORMS and IMAGE tags
  335.  
  336. (defvar hm--html-url-alist nil
  337.   "*Alist with URL's for FORMS and IMAGE tags. 
  338. The cdr of each list contains symbols, which specifys the use of the
  339. URL.")
  340.  
  341. (setq hm--html-url-alist (list
  342.               '("http://hoohoo.ncsa.uiuc.edu/htbin-post/post-query"
  343.                 POST)
  344.               '("http://hoohoo.ncsa.uiuc.edu/htbin/query"
  345.                 GET)
  346.               (list 
  347.                (concat "http://" 
  348.                    hm--html-favorite-http-server-host-name
  349.                    "/")
  350.                'IMAGE)))
  351.  
  352.  
  353. ;;; For the marking of examples in the help buffer
  354.  
  355. (defvar hm--html-help-foreground "red"
  356.   "The foreground color to highlight examples.")
  357.  
  358. (defvar hm--html-help-background nil
  359.   "The background color to highlight examples.")
  360.  
  361. (defvar hm--html-help-font (face-font 'bold)
  362.   "The font to highlight examples.")
  363.  
  364.  
  365. ;(if (not (face-foreground 'hm--html-help-face))
  366. ;    (set-face-foreground 'hm--html-help-face "red"))
  367.  
  368.  
  369. ;;; For the Templates
  370.  
  371.  
  372. (defvar hm--html-template-dir nil
  373.   "*A directory with templatefiles")
  374.  
  375.  
  376. (setq hm--html-template-dir "/data/info/www/tnt/guide/templates/") 
  377.  
  378. (if (not (file-exists-p hm--html-template-dir))
  379.     ;; Use a system directory, if the above one doesn't exist
  380.     ;; This is only useful, in the XEmacs 19.12
  381.     (setq hm--html-template-dir (concat data-directory
  382.                     "../lisp/hm--html-menus/")))
  383.  
  384.  
  385. (defvar hm--html-frame-template-file nil
  386.   "File, which is used as template for a html frame.")
  387.  
  388. (setq hm--html-frame-template-file (concat hm--html-template-dir
  389.                        "frame.tmpl"))
  390.   
  391.  
  392. (defvar hm--html-automatic-expand-templates nil
  393.   "*Automatic expansion of templates. This feature needs the file
  394. templates.el from Heiko Muenkel (muenkel@tnt.uni-hannover.de).")
  395.  
  396.  
  397. (setq hm--html-automatic-expand-templates t)
  398.  
  399.  
  400. ;;; For font lock mode
  401. ;(defvar hm--html-font-lock-color 
  402. ;  (if (facep 'font-lock-comment-face)
  403. ;      (face-foreground 'font-lock-comment-face))
  404. ;  "*The color for the html font lock.")
  405.  
  406.  
  407. ;(setq hm--html-font-lock-color "grey80")
  408.  
  409.  
  410. ;;; for deleting the automounter path-prefix
  411. (defvar hm--html-delete-wrong-path-prefix nil
  412.   "If non nil, it specifies path-prefixes, which should be deleted in pathes.
  413. The Sun automounter adds a temporary prefix to the automounted directories
  414.  (At our site the prefix is /tmp_mnt). But you can't select such a path, if 
  415. the automounter has currently not mounted the directory and so you can't
  416. follow a html-link, which consists of such a path. To overcome this behaviour,
  417. you can set this variable to the prefix (eg. \"/tmp_mnt\"). After that, the
  418. prefix should be stripped from the pathes during the creation of the links.
  419. ATTENTION: This variable is used as regular expression !
  420. It can be set to a string or to a list of strings.")
  421.  
  422. (setq hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+"))
  423.  
  424.  
  425. ;;; For insertation of created and changed comments and automatic
  426. ;;; date update in the title line
  427.  
  428. (defvar hm--html-automatic-new-date t
  429.   "*t   => The date in the title line will be updated before filesaving.
  430. nil => No automatic update of the date.")
  431.  
  432. (defvar hm--html-automatic-changed-comment t
  433.   "*t   => A \"changed comment\" line will be added before filesaving.
  434. nil => No automatic insertation of a \"changed comment\" line.")
  435.  
  436. (defvar hm--html-automatic-created-comment t
  437.   "*t   => A \"created comment\" line will be added.
  438. nil => No automatic insertation of a \"created comment\" line.")
  439.  
  440.  
  441.  
  442. ;;; For the file html-mode.el
  443.  
  444. (setq html-document-previewer "/appl/www/bin/mosaic")
  445.  
  446.  
  447. ;;; For the file html-view.el
  448.  
  449. (setq html-view-mosaic-command "/appl/www/bin/mosaic")
  450.  
  451.  
  452. ;;; For the files html-mode.el and html-view.el
  453.  
  454. ;; Value for the SIGUSR1 signal on your system.  See, usually,
  455. ;; /usr/include/sys/signal.h.
  456. ;;     SunOS 4.1.x    : (setq html-sigusr1-signal-value 30)
  457. ;;    Linux        : (setq html-sigusr1-signal-value 10)
  458. (setq html-sigusr1-signal-value 30)
  459.  
  460.  
  461. ;;; Keybindings:
  462.  
  463. (defvar hm--html-use-old-keymap nil
  464.   "Set this to t, if you want to use the old keymap from Marc.
  465. This variable and the choice to use the old map will be deleted 
  466. in the future.")
  467.  
  468. (if (not hm--html-use-old-keymap)
  469.     ;; The new map
  470.     (require 'hm--html-keys)
  471.  
  472.   ;; Additional bindings to the old map
  473.  
  474. ;;; Keytable html-mode-map (see also the file html-mode.el)
  475.  
  476. (define-key html-mode-map "\C-cr" 'hm--html-add-link-target)
  477. (define-key html-mode-map "\C-ch" 'hm--html-add-header)
  478. (define-key html-mode-map "\C-ct" 'hm--html-add-title)
  479. (define-key html-mode-map "\C-cn" 'hm--html-add-numberlist)
  480. (define-key html-mode-map "\C-c\C-p" 'hm--html-add-preformated)
  481. (define-key html-mode-map "\C-c\C-b" 'hm--html-add-bold)
  482. (define-key html-mode-map "\C-c\C-i" 'hm--html-add-italic)
  483. (define-key html-mode-map "\C-c\M-h" 'hm--html-add-html-link)
  484. (define-key html-mode-map "\C-c\M-i" 'hm--html-add-info-link)
  485. (define-key html-mode-map "\C-c\M-g" 'hm--html-add-gopher-link)
  486. (define-key html-mode-map "\C-c\M-f" 'hm--html-add-file-link)
  487. (define-key html-mode-map "\C-c\M-n" 'hm--html-add-news-link)
  488. (define-key html-mode-map "\C-c\M-m" 'hm--html-add-mail-link)
  489. ;(define-key html-mode-map "\C-c\M-w" 'hm--html-add-wais-link)
  490. (define-key html-mode-map "\C-c\M-w" 'hm--html-add-direct-wais-link)
  491. (define-key html-mode-map "\C-c\M-t" 'hm--html-add-ftp-link)
  492. (if (adapt-xemacsp)
  493.     (define-key html-mode-map '(button3) 'hm--popup-html-menu)
  494.   (define-key html-mode-map [mouse-3] 'hm--popup-html-menu)
  495.   ;;(define-key html-mode-map [S-mouse-3] 'hm--popup-html-menu)
  496.   ;;(define-key html-mode-map [C-mouse-3] 'hm--popup-html-menu-region)
  497.   )
  498.  
  499. ;;; Keytable html-region-mode-map (for the minor mode region-mode-map
  500. ;;; This minor mode is active, if a region is active
  501.  
  502. (if html-region-mode-map
  503.     ()
  504.   (setq html-region-mode-map (make-sparse-keymap))
  505.   (define-key html-region-mode-map "\t" 'tab-to-tab-stop)
  506.   (define-key html-region-mode-map "\C-ca" 'hm--html-add-address-to-region)
  507.   (define-key html-region-mode-map "\C-cb" 'hm--html-add-blockquote-to-region)
  508.   (define-key html-region-mode-map "\C-cc" 'hm--html-add-code-to-region)
  509.   (define-key html-region-mode-map "\C-cd" 
  510.     'hm--html-add-description-list-to-region)
  511.   (define-key html-region-mode-map "\C-ch" 'hm--html-add-header-to-region)
  512.   (define-key html-region-mode-map "\C-cl" 'html-add-normal-link-to-region)
  513.   (define-key html-region-mode-map "\C-cm" 'hm--html-add-menu-to-region)
  514.   (define-key html-region-mode-map "\C-cn" 'hm--html-add-numberlist-to-region)
  515.   (define-key html-region-mode-map "\C-cr" 'html-add-reference-to-region)
  516.   (define-key html-region-mode-map "\C-cs" 'hm--html-add-list-to-region)
  517.   (define-key html-region-mode-map "\C-ct" 'hm--html-add-title-to-region)
  518.   (define-key html-region-mode-map "\C-cx" 'hm--html-add-plaintext-to-region)
  519.   (define-key html-region-mode-map "\C-c\C-b" 'hm--html-add-bold-to-region)
  520.   (define-key html-region-mode-map "\C-c\C-c" 'hm--html-add-citation-to-region)
  521.   (define-key html-region-mode-map "\C-c\C-e" 
  522.     'hm--html-add-emphasized-to-region)
  523.   (define-key html-region-mode-map "\C-c\C-f" 'hm--html-add-fixed-to-region)
  524.   (define-key html-region-mode-map "\C-c\C-i" 'hm--html-add-italic-to-region)
  525.   (define-key html-region-mode-map "\C-c\C-k" 'hm--html-add-keyboard-to-region)
  526.   (define-key html-region-mode-map "\C-c\C-l" 'hm--html-add-listing-to-region)
  527.   (define-key html-region-mode-map "\C-c\C-m" 'hm--html-add-sample-to-region)
  528.   (define-key html-region-mode-map "\C-c\C-p"
  529.     'hm--html-add-preformated-to-region)
  530.   (define-key html-region-mode-map "\C-c\C-s" 'hm--html-add-strong-to-region)
  531.   (define-key html-region-mode-map "\C-c\C-v" 'hm--html-add-variable-to-region)
  532.   (define-key html-region-mode-map "<" 'html-less-than)
  533.   (define-key html-region-mode-map ">" 'html-greater-than)
  534.   (define-key html-region-mode-map "&" 'html-ampersand)
  535.   (define-key html-region-mode-map "\C-c\C-rl" 'html-add-normal-link-to-region)
  536.   (define-key html-region-mode-map "\C-c\C-rr" 'html-add-reference-to-region)
  537.   (define-key html-region-mode-map "\C-c\M-h" 
  538.     'hm--html-add-html-link-to-region)
  539.   (define-key html-region-mode-map "\C-c\M-i" 
  540.     'hm--html-add-info-link-to-region)
  541.   (define-key html-region-mode-map "\C-c\M-g" 
  542.     'hm--html-add-gopher-link-to-region)
  543.   (define-key html-region-mode-map "\C-c\M-f" 
  544.     'hm--html-add-file-link-to-region)
  545.   (define-key html-region-mode-map "\C-c\M-n" 
  546.     'hm--html-add-news-link-to-region)
  547.   (define-key html-region-mode-map "\C-c\M-m"
  548.     'hm--html-add-mail-link-to-region)
  549. ;  (define-key html-region-mode-map "\C-c\M-w" 
  550. ;    'hm--html-add-wais-link-to-region)
  551.   (define-key html-region-mode-map "\C-c\M-w" 
  552.     'hm--html-add-direct-wais-link-to-region)
  553.   (define-key html-region-mode-map "\C-c\M-t" 
  554.     'hm--html-add-ftp-link-to-region)
  555.   (if (adapt-xemacsp)
  556.       (define-key html-region-mode-map '(button3) 'hm--popup-html-menu-region)
  557.     (define-key html-region-mode-map [mouse-3] 'hm--popup-html-menu-region))
  558. )
  559.  
  560. )
  561.  
  562.